home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 March
/
1990-03.d64
/
ml programming
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
307b
|
9 lines
5 print"[147][154]":poke53280,14:poke53281,6
10 data 165,97,240,32,201,132,240,22,144,26,169,132,133
20 data 97,169,160,133,98,169,0,133,99,133,100,133,101
30 data 133,102,240,6,165,98,201,160,176,230,96
40 for j=828 to 864:read x:t=t+x:poke j,x:next j
50 if t<>4865 then stop
60 poke785,60:poke786,3:rem point usr to ml
70 for k=5 to 15:print k;usr(k):next k